(openp): Fix Lisp_Object vs. int problems.

diff --git a/src/lread.c b/src/lread.c
index 9afeec0192ea104740a50b78ccd8097dfb20e356..4ae0fcbf21ba90be6184420bb34f623da84bc877 100644 (file)
--- a/src/lread.c
+++ b/src/lread.c
@@ -588,7 +588,8 @@ openp (path, str, suffix, storeptr, exec_only)
                  /* We succeeded; return this descriptor and filename.  */
                  if (storeptr)
                    *storeptr = build_string (fn);
-                 RETURN_UNGCPRO (fd);
+                 UNGCPRO;
+                 return fd;
                }
            }
 
@@ -598,10 +599,11 @@ openp (path, str, suffix, storeptr, exec_only)
          nsuffix += lsuffix + 1;
        }
       if (absolute)
-       RETURN_UNGCPRO (-1);
+       break;
     }
 
-  RETURN_UNGCPRO (-1);
+  UNGCPRO;
+  return -1;
 }
 
 \f